home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / rexx / Temporizator.lha / TEMPORIZATOR.MSRX < prev    next >
Text File  |  1997-09-06  |  2KB  |  72 lines
  1. /*********************************/
  2. /*                               */
  3. /* TeMPoRiZaToR 1.12 -by Fredius */
  4. /*                               */
  5. /*    send any comment to...     */
  6. /*      fredius@redestb.es       */
  7. /*                               */
  8. /*********************************/
  9.  
  10. NL = '0A'x
  11.  
  12. ADDRESS MOVIESHOP
  13. OPTIONS RESULTS
  14.  
  15. IF ~SHOW('l','rexxreqtools.library') THEN DO
  16.   CHECK = ADDLIB('rexxreqtools.library',0,-30,0)
  17. END
  18.  
  19. IF ~SHOW('l','rexxarplib.library') THEN DO
  20.   CHECK = ADDLIB('rexxarplib.library',0,-30,0)
  21. END
  22.  
  23. CALL RTEZREQUEST('TeMPoRiZaToR 1.12 - by FReDiuS DaRDe','Very nice, yeah!','TeMPoRiZaToR',,)
  24.  
  25. READ RECORDLENGTH
  26. MODOSCENE = RESULT
  27.  
  28. READ AUTOSAVEENV
  29. MODOAUTSAV = RESULT
  30. AUTOSAVEENV OFF
  31.  
  32. FOTOGRAMAS = RTGETLONG(,'Enter frames:','Frames') - 1
  33. PAUSA = RTGETLONG(,'Enter pause:','Time')
  34. DURAMIN = PAUSA*FOTOGRAMAS%60
  35. DURASEG = RIGHT((PAUSA*FOTOGRAMAS/60-PAUSA*FOTOGRAMAS%60)*60,2,'0')
  36.  
  37. INFORMACION = 'Frames = '||FOTOGRAMAS+1||NL||'Pause = '||PAUSA||'"'||NL||'Duration = '||DURAMIN||''' '||DURASEG||'"'
  38.  
  39. NEWSCENE
  40. RECORDLENGTH SINGLEFRAME
  41. STOPSCENE
  42.  
  43. CALL RTEZREQUEST(INFORMACION,'Begin the begin!!!','Info',,)
  44.  
  45. PRINCIPIO = TIME('S')
  46.  
  47. DO i=1 TO FOTOGRAMAS
  48.       TIEMPO = TIME('S')
  49.       RECORDSCENE DOWAIT APPEND
  50.       STOPSCENE
  51.  
  52.       DO FOREVER UNTIL TIME('S')-TIEMPO>=PAUSA
  53.  
  54.             TIMEOUTMIN = (PAUSA*FOTOGRAMAS-TIME('S')+PRINCIPIO)%60
  55.             TIMEOUTSEG = RIGHT(((PAUSA*FOTOGRAMAS-TIME('S')+PRINCIPIO)/60-(PAUSA*FOTOGRAMAS-TIME('S')+PRINCIPIO)%60)*60,2,'0')
  56.  
  57.             RESULT = POSTMSG(80,40,"    Duration: "||DURAMIN||"'"||DURASEG||"""\       Frame: "||i||"\  Time to go: "||TIMEOUTMIN||"'"||TIMEOUTSEG||"""",'MOVIESHOP.1')
  58.  
  59.             END
  60.  
  61.       END
  62.  
  63. RECORDSCENE DOWAIT APPEND
  64. STOPSCENE
  65.  
  66. RESULT = POSTMSG()
  67.  
  68. RECORDLENGTH MODOSCENE
  69. AUTOSAVEENV MODOAUTSAV
  70.  
  71. CALL RTEZREQUEST('The end !!!'||NL||NL||FOTOGRAMAS+1||' frames grabados','Yeah, man, yeah','Info',,)
  72.